home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / minix / up1510b.tgz / up1510b / src / commands / kermit / ckcmai.c < prev    next >
C/C++ Source or Header  |  1990-07-23  |  13KB  |  331 lines
  1. char *versio = "C-Kermit, 4E(070) 29 Jan 88";
  2.  
  3. /*  C K C M A I  --  C-Kermit Main program  */
  4.  
  5. /*
  6.  4E, add long packet support, plus changes for Apollo and Data General
  7.  support from SAS Institute, and for Macintosh from Planning Research Corp,
  8.  plus several important bug fixes.
  9. */
  10. /*
  11.  Author: Frank da Cruz,
  12.  Columbia University Center for Computing Activities (CUCCA), 1984-88.
  13.  Copyright (C) 1984, 1988, Trustees of Columbia University in the City of New 
  14.  York. Permission is granted to any individual or institution to use, copy, or
  15.  redistribute this software so long as it is not sold for profit, provided this
  16.  copyright notice is retained.
  17. */
  18. /*
  19.  The Kermit file transfer protocol was developed at Columbia University.
  20.  It is named after Kermit the Frog, star of the television series THE
  21.  MUPPET SHOW; the name is used by permission of Henson Associates, Inc.
  22.  "Kermit" is also Celtic for "free".
  23. */
  24. /*
  25.  Thanks to Herm Fischer of Encino CA for extensive contributions to version 4,
  26.  and to the following people for their contributions over the years:
  27.  
  28.    Larry Afrin, Clemson U
  29.    Stan Barber, Rice U
  30.    Charles Brooks, EDN
  31.    Bill Catchings, formerly of CUCCA
  32.    Bob Cattani, Columbia U CS Dept
  33.    Howard Chu, U of Michigan
  34.    Bill Coalson, McDonnell Douglas
  35.    Alan Crosswell, CUCCA
  36.    Jeff Damens, formerly of CUCCA
  37.    Joe R. Doupnik, Utah State U
  38.    Glenn Everhart, RCA Labs
  39.    Carl Fongheiser, CWRU
  40.    Yekta Gursel, MIT
  41.    Jim Guyton, Rand Corp
  42.    Stan Hanks, Rice U.
  43.    Ken Harrenstein, SRI
  44.    Ron Heiby, Motorola Micromputer Division
  45.    Steve Hemminger, Tektronix
  46.    Randy Huntziger, NLM
  47.    Phil Julian, SAS Institute
  48.    Jim Knutson, U of Texas at Austin
  49.    John Kunze, UC Berkeley
  50.    David Lawyer, UC Irvine
  51.    S.O. Lidie, Lehigh U
  52.    Chris Maio, Columbia U CS Dept
  53.    Leslie Mikesall, American Farm Bureau
  54.    Martin Minow, DEC
  55.    Tony Movshon, NYU
  56.    Dan Murphy, ???
  57.    Jim Noble, Planning Research Corporation
  58.    Paul Placeway, Ohio State U
  59.    Ken Poulton, HP Labs
  60.    Frank Prindle, NADC
  61.    Scott Ribe, ???
  62.    Jack Rouse, SAS Institute
  63.    Stew Rubenstein, Harvard
  64.    Dan Schullman, DEC
  65.    Gordon Scott, Micro Focus, Newbury UK
  66.    David Sizeland, U of London Medical School
  67.    Bradley Smith, UCLA
  68.    Markku Toijala, Helsinki U of Technology
  69.    Dave Tweten, AMES-NAS
  70.    Walter Underwood, Ford Aerospace
  71.    Pieter Van Der Linden, Centre Mondial (Paris)
  72.    Wayne Van Pelt, GE/CRD
  73.    Mark Vasoll & Gregg Wonderly, Oklahoma State University
  74.    Stephen Walton, Ametek Computer
  75.    Lauren Weinstein
  76.    Joachim Wiesel, U of Karlsruhe
  77.    Dave Woolley, CAP Communication Systems, London
  78.  
  79.  and many others.
  80. */
  81.  
  82. #include "ckcsym.h"            /* Macintosh needs this */
  83. #include "ckcker.h"
  84. #include "ckcdeb.h"
  85.  
  86. /* Text message definitions.. each should be 256 chars long, or less. */
  87. #ifdef MAC
  88. char *hlptxt = "\r\
  89. MacKermit Server Commands:\r\
  90. \r\
  91.     BYE\r\
  92.     FINISH\r\
  93.     GET filespec\r\
  94.     REMOTE CWD directory\r\
  95.     REMOTE HELP\r\
  96.     SEND filespec\r\
  97. \r\0";
  98. #else
  99. #ifdef AMIGA
  100. char *hlptxt = "C-Kermit Server Commands:\n\
  101. \n\
  102. GET filespec, SEND filespec, FINISH, BYE, REMOTE HELP\n\
  103. \n\0";
  104. #else
  105. #ifdef MINIX
  106. char *hlptxt = "C-Kermit Server REMOTE Commands:\n\
  107. BYE CWD DELETE DIRECTORY FINISH GET HELP HOST SEND SPACE TYPE WHO\n\
  108. \n\0";
  109. #else /* MINIX */
  110. char *hlptxt = "C-Kermit Server REMOTE Commands:\n\
  111. \n\
  112. GET files  REMOTE CWD [dir]    REMOTE DIRECTORY [files]\n\
  113. SEND files REMOTE SPACE [dir]  REMOTE HOST command\n\
  114. FINISH     REMOTE DELETE files REMOTE WHO [user]\n\
  115. BYE        REMOTE HELP         REMOTE TYPE files\n\
  116. \n\0";
  117. #endif
  118. #endif
  119. #endif
  120.  
  121. #ifdef MINIX
  122. char *srvtxt = "\r\n\
  123. C-Kermit server starting.\n\
  124. \r\n\0";
  125. #else
  126. char *srvtxt = "\r\n\
  127. C-Kermit server starting.  Return to your local machine by typing\r\n\
  128. its escape sequence for closing the connection, and issue further\r\n\
  129. commands from there.  To shut down the C-Kermit server, issue the\r\n\
  130. FINISH or BYE command and then reconnect.\n\
  131. \r\n\0";
  132. #endif
  133.  
  134. /* Declarations for Send-Init Parameters */
  135.  
  136. int spsiz = DSPSIZ,                     /* Biggest packet size we can send */
  137.     spsizf = 0,                         /* Flag to override what you ask for */
  138.     rpsiz = DRPSIZ,                     /* Biggest we want to receive */
  139.     urpsiz = DRPSIZ,            /* User-requested rpsiz */
  140.     maxrps = MAXRP,            /* Maximum incoming long packet size */
  141.     maxsps = MAXSP,            /* Maximum outbound l.p. size */
  142.     maxtry = MAXTRY,            /* Maximum retries per packet */
  143.     wsize = 1,                /* Window size */
  144.     timint = DMYTIM,                    /* Timeout interval I use */
  145.     rtimo = URTIME,                     /* Timeout I want you to use */
  146.     timef = 0,                          /* Flag to override what you ask */
  147.     npad = MYPADN,                      /* How much padding to send */
  148.     mypadn = MYPADN,                    /* How much padding to ask for */
  149.     bctr = 1,                           /* Block check type requested */
  150.     bctu = 1,                           /* Block check type used */
  151.     ebq =  MYEBQ,                       /* 8th bit prefix */
  152.     ebqflg = 0,                         /* 8th-bit quoting flag */
  153.     rqf = -1,                /* Flag used in 8bq negotiation */
  154.     rq = 0,                /* Received 8bq bid */
  155.     sq = 'Y',                /* Sent 8bq bid */
  156.     rpt = 0,                            /* Repeat count */
  157.     rptq = MYRPTQ,                      /* Repeat prefix */
  158.     rptflg = 0;                         /* Repeat processing flag */
  159.  
  160. int capas = 10,                /* Position of Capabilities */
  161.     atcapb = 8,                /* Attribute capability */
  162.     atcapr = 0,                /*  requested */
  163.     atcapu = 0,                /*  used */
  164.     swcapb = 4,                /* Sliding Window capability */
  165.     swcapr = 0,                /*  requested */
  166.     swcapu = 0,                /*  used */
  167.     lpcapb = 2,                /* Long Packet capability */
  168.     lpcapr = 1,                /*  requested */
  169.     lpcapu = 0;                /*  used */
  170.  
  171. CHAR padch = MYPADC,                    /* Padding character to send */
  172.     mypadc = MYPADC,                    /* Padding character to ask for */
  173.     seol = MYEOL,                       /* End-Of-Line character to send */
  174.     eol = MYEOL,                        /* End-Of-Line character to look for */
  175.     ctlq = CTLQ,                        /* Control prefix in incoming data */
  176.     myctlq = CTLQ;                      /* Outbound control character prefix */
  177.  
  178.  
  179. /* Packet-related variables */
  180.  
  181. int pktnum = 0,                         /* Current packet number */
  182.     prvpkt = -1,                        /* Previous packet number */
  183.     sndtyp,                             /* Type of packet just sent */
  184.     rsn,                /* Received packet sequence number */
  185.     rln,                /* Received packet length */
  186.     size,                               /* Current size of output pkt data */
  187.     osize,                              /* Previous output packet data size */
  188.     maxsize,                            /* Max size for building data field */
  189.     spktl = 0;                /* Length packet being sent */
  190.  
  191. CHAR sndpkt[MAXSP+100],                 /* Entire packet being sent */
  192.     recpkt[MAXRP+200],                  /* Packet most recently received */
  193.     *rdatap,                /* Pointer to received packet data */
  194.     data[MAXSP+4],            /* Packet data buffer */
  195.     srvcmd[MAXRP+4],                    /* Where to decode server command */
  196.     *srvptr,                            /* Pointer to above */
  197.     mystch = SOH,                       /* Outbound packet-start character */
  198.     stchr = SOH;                        /* Incoming packet-start character */
  199.  
  200. /* File-related variables */
  201.  
  202. #ifdef datageneral
  203. CHAR filnam[256];                       /* Name of current file. */
  204. #else
  205. CHAR filnam[50];                        /* Name of current file. */
  206. #endif
  207.  
  208. int nfils;                              /* Number of files in file group */
  209. long fsize;                             /* Size of current file */
  210.  
  211. /* Communication line variables */
  212.  
  213. CHAR ttname[50];                        /* Name of communication line. */
  214.  
  215. int parity,                             /* Parity specified, 0,'e','o',etc */
  216.     flow,                               /* Flow control, 1 = xon/xoff */
  217.     speed = -1,                         /* Line speed */
  218.     turn = 0,                           /* Line turnaround handshake flag */
  219.     tu